home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Answers 2002 January
/
PC Answers January 2002.7z
/
PC Answers January 2002.bin
/
graphics
/
freepixl
/
_SETUP.1
/
Toolbar1.pxl
< prev
next >
Wrap
Text File
|
2000-12-23
|
9KB
|
344 lines
UseCoordinates(PIXEL)
UseBackGround(TRANSPARENT,192,192,192)
DrawBackGround
WinGetActive(Win$)
WinVersion(Major,Minor,Build,Pack$)
Set Caption$ = "Bar#1"
WinTitle(Win$,Caption$)
WinShow(Caption$,TOPMOST,Res)
WinExist(Win$,Res)
If Res = 1 Then WinShow(Win$,UNHIDE,Res)
One_Instance:
WinTitle(Win$,Caption$)
WinShow(Caption$,TOPMOST,Res)
If Major = 3 Then WinLocate(Caption$,550,55,682,142,Res)
If Major = 4 Then WinLocate(Caption$,550,55,690,150,Res)
DrawBackGround
WaitInput(100)
InfoMenu(REMOVE)
SetMenu()
WinGetClientRect(Caption$,cx1,cy1,cx2,cy2)
If cy2 <> 66
y2 = 159
WinLocate(Caption$,550,55,690,y2,Res)
Endif
GoSub DrawButtons
Wait_for_Input:
WaitInput()
Min_NA:
WinShow(Caption$,SHOWMINNOACTIVE,Res)
Goto Wait_for_Input
Close:
End
CBtn_1:
SetCtrlMouse()
SetMouse() SetRightMouse()
WinGetLocation(Caption$,X1,Y1,X2,Y2,Res)
Status_X1 = 5
Status_Y1 = 67 Y3 = Y2 + 16
Rect_X1 = 2 Rect_Y1 = 67
Rect_X2 = 129 Rect_Y2 = 81
WaitInput(100)
WinLocate(Caption$,X1,Y1,X2,Y3,Res)
UseFont("Arial",5,13,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
UseBrush(SOLID,192,192,192)
UsePen(SOLID,1,0,0,0)
DrawRectangle(Rect_X1,Rect_Y1,Rect_X2,Rect_Y2)
DrawText(Status_X1, Status_Y1,"Show Demo Help")
UseBrush(SOLID,192,192,129)
WaitInput(1800)
WinLocate(Caption$,X1,Y1,X2,Y2,Res)
UsePen(SOLID,1,192,192,192)
UseBrush(SOLID,192,192,192)
DrawRectangle(Rect_X1,Rect_Y1,Rect_X2,Rect_Y2)
UsePen(SOLID,1,0,0,0)
GoSub Mouse_Setup
Goto Wait_for_Input
CBtn_7:
SetCtrlMouse() SetMouse() SetRightMouse()
WinGetLocation(Caption$,X1,Y1,X2,Y2,Res)
Status_X1 = 5
Status_Y1 = 67 Y3 = Y2 + 32
Rect_X1 = 2 Rect_Y1 = 67
Rect_X2 = 129 Rect_Y2 = 97
WaitInput(100)
WinLocate(Caption$,X1,Y1,X2,Y3,Res)
UseFont("Arial",7,13,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
UseBrush(SOLID,192,192,192)
UsePen(SOLID,1,0,0,0)
DrawRectangle(Rect_X1,Rect_Y1,Rect_X2,Rect_Y2)
DrawText(Status_X1, Status_Y1,"L:multi select")
Status_Y1 = 80
DrawText(Status_X1, Status_Y1,"R:single select")
UseBrush(SOLID,192,192,129)
WaitInput(3000)
WinLocate(Caption$,X1,Y1,X2,Y2,Res)
UsePen(SOLID,1,192,192,192)
UseBrush(SOLID,192,192,192)
DrawRectangle(Rect_X1,Rect_Y1,Rect_X2,Rect_Y2)
UsePen(SOLID,1,0,0,0)
GoSub Mouse_Setup
Goto Wait_for_Input
CBtn_2:
CBtn_3:
CBtn_4:
CBtn_5:
CBtn_6:
CBtn_8:
SetCtrlMouse() SetMouse() SetRightMouse()
WinGetLocation(Caption$,X1,Y1,X2,Y2,Res)
Status_X1 = 5
Status_Y1 = 67 Y3 = Y2 + 16
Rect_X1 = 2 Rect_Y1 = 67
Rect_X2 = 129 Rect_Y2 = 81
WinLocate(Caption$,X1,Y1,X2,Y3,Res)
UseFont("Arial",7,13,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
UseBrush(SOLID,192,192,192)
UsePen(SOLID,1,0,0,0)
DrawRectangle(Rect_X1,Rect_Y1,Rect_X2,Rect_Y2)
DrawText(Status_X1, Status_Y1,"button info")
UseBrush(SOLID,192,192,192)
WaitInput(2500)
WinLocate(Caption$,X1,Y1,X2,Y2,Res)
UsePen(SOLID,1,192,192,192)
UseBrush(SOLID,192,192,192)
DrawRectangle(Rect_X1,Rect_Y1,Rect_X2,Rect_Y2)
UsePen(SOLID,1,0,0,0)
GoSub Status_Mouse
Goto Wait_for_Input
Btn_1:
GoSub Button_1_Neg WaitInput(150)
UseBrush(SOLID,192,192,192)
DrawRectangle( 1, 1,32,32)
GoSub Button_1_Text
GoSub Button_1_Help
Goto Wait_for_Input
Btn_2:
UseBrush(SOLID,0,224,0)
DrawRectangle(33, 1, 65,32) WaitInput(150)
UseBrush(SOLID,192,192,192)
DrawRectangle(33, 1, 65,32)
Goto Wait_for_Input
Btn_3:
UseBrush(SOLID,0,224,0)
DrawRectangle(66,1, 97,32) WaitInput(150)
UseBrush(SOLID,192,192,192)
DrawRectangle(66,1, 97,32)
Goto Wait_for_Input
Btn_4:
UseBrush(SOLID,0,224,0)
DrawRectangle(98, 1,129,32) WaitInput(150)
UseBrush(SOLID,192,192,192)
DrawRectangle(98, 1,129,32)
Goto Wait_for_Input
Btn_5:
UseBrush(SOLID,0,224,0)
DrawRectangle(1,33, 32,65) WaitInput(150)
UseBrush(SOLID,192,192,192)
DrawRectangle(1,33, 32,65)
Goto Wait_for_Input
Btn_6:
UseBrush(SOLID,0,224,0)
DrawRectangle(33,33, 65,65) WaitInput(150)
UseBrush(SOLID,192,192,192)
DrawRectangle(33,33, 65,65)
Goto Wait_for_Input
Btn_7:
GoSub Button_7_Neg WaitInput(150)
UseBrush(SOLID,192,192,192)
DrawRectangle(66,33, 97,65)
GoSub Button_7_Text
FileGet("BMP Files(*.bmp),*.bmp","","",
"Left Mouse Option: Select multiple files",CHANGEDIRMULTI,Chosen$)
If Chosen$ = "" Then Goto Wait_for_Input
ListBox("Files Selected for later processing", Chosen$," ",Res$)
Goto Wait_for_Input
Btn_8:
UseBrush(SOLID,0,224,0)
DrawRectangle(98,33,129,65) WaitInput(150)
UseBrush(SOLID,192,192,192)
DrawRectangle(98,33,129,65)
GoSub Button_8_Text
MessageBox(OK,1,EXCLAMATION,
"This window was started by clicking the left mouse on the
programmed Multi-Help button. You could start another
application, or invoke Winhelp at a 'Contents' page.",
"Multiple Function Help buttons",Res)
Goto Wait_for_Input
RBtn_1:
GoSub Button_1_Neg WaitInput(150)
UseBrush(SOLID,192,192,192)
DrawRectangle( 1, 1,32,32)
GoSub Button_1_Text
GoSub Button_1_Help
Goto Wait_for_Input
RBtn_2:
UseBrush(SOLID,255,255,0)
DrawRectangle(33, 1, 65,32) WaitInput(150)
UseBrush(SOLID,192,192,192)
DrawRectangle(33, 1, 65,32)
Goto Wait_for_Input
RBtn_3:
UseBrush(SOLID,255,255,0)
DrawRectangle(66,1, 97,32) WaitInput(150)
UseBrush(SOLID,192,192,192)
DrawRectangle(66,1, 97,32)
Goto Wait_for_Input
RBtn_4:
UseBrush(SOLID,255,255,0)
DrawRectangle(98, 1,129,32) WaitInput(150)
UseBrush(SOLID,192,192,192)
DrawRectangle(98, 1,129,32)
Goto Wait_for_Input
RBtn_5:
UseBrush(SOLID,255,255,0)
DrawRectangle(1,33, 32,65) WaitInput(150)
UseBrush(SOLID,192,192,192)
DrawRectangle(1,33, 32,65)
Goto Wait_for_Input
RBtn_6:
UseBrush(SOLID,255,255,0)
DrawRectangle(33,33, 65,65) WaitInput(150)
UseBrush(SOLID,192,192,192)
DrawRectangle(33,33, 65,65)
Goto Wait_for_Input
RBtn_7:
GoSub Button_7_Neg WaitInput(150)
UseBrush(SOLID,192,192,192)
DrawRectangle(66,33, 97,65)
Chosen$ = ""
GoSub Button_7_Text
FileGet("BMP Files(*.bmp),*.bmp","","",
"Right Mouse Option: Select One file",CHANGEDIR,Chosen$)
If Chosen$ = "" Then Goto Wait_for_Input
ListBox("File Selected for later processing", Chosen$," ",Res$)
Goto Wait_for_Input
RBtn_8:
UseBrush(SOLID,255,255,0)
DrawRectangle(98,33,129,65) WaitInput(150)
UseBrush(SOLID,192,192,192)
DrawRectangle(98,33,129,65)
GoSub Button_8_Text
MessageBox(OK,1,EXCLAMATION,
"This window was started by clicking the right mouse on
the programmed Multi-Help button. You could start WinHelp
and jump to a specific topic i.e. context sensitive help.",
"Multiple Function Help buttons",Res)
Goto Wait_for_Input
DrawButtons: {Subroutine}
UsePen(SOLID,1,0,0,0)
UseBrush(SOLID,192,192,192)
DrawRectangle( 1, 1,32,32) DrawRectangle(33, 1, 65,32)
DrawRectangle(66,1, 97,32) DrawRectangle(98, 1,129,32)
DrawRectangle(1,33, 32,65) DrawRectangle(33,33, 65,65)
DrawRectangle(66,33, 97,65) DrawRectangle(98,33,129,65)
GoSub Button_1_Text
GoSub Button_7_Text
GoSub Button_8_Text
GoSub Mouse_Setup
Return
Mouse_Setup:
SetMouse(1, 1, 32,32,Btn_1,X,Y,
33, 1, 65,32,Btn_2,X,Y,
66,1, 97,32,Btn_3,X,Y,
98, 1,129,32,Btn_4,X,Y,
1,33, 32,65,Btn_5,X,Y,
33,33, 65,65,Btn_6,X,Y,
66,33, 97,65,Btn_7,X,Y,
98,33,129,65,Btn_8,X,Y)
SetRightMouse(1, 1, 32,32,RBtn_1,X,Y,
33, 1, 65,32,RBtn_2,X,Y,
66,1, 97,32,RBtn_3,X,Y,
98, 1,129,32,RBtn_4,X,Y,
1,33, 32,65,RBtn_5,X,Y,
33,33, 65,65,RBtn_6,X,Y,
66,33, 97,65,RBtn_7,X,Y,
98,33,129,65,RBtn_8,X,Y)
GoSub Status_Mouse
Return
Status_Mouse:
SetCtrlMouse(1, 1, 32,32,CBtn_1,X,Y,
33, 1, 65,32,CBtn_2,X,Y,
66,1, 97,32,CBtn_3,X,Y,
98, 1,129,32,CBtn_4,X,Y,
1,33, 32,65,CBtn_5,X,Y,
33,33, 65,65,CBtn_6,X,Y,
66,33, 97,65,CBtn_7,X,Y,
98,33,129,65,CBtn_8,X,Y)
Return
Button_1_Text:
UseFont("Arial",5,15,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(4,2,"Dmo") DrawText(4,15,"Help")
UseFont("Arial",5,15,NOBOLD,NOITALIC,NOUNDERLINE,255,255,0)
DrawText(3,1,"Dmo") DrawText(3,14,"Help")
Return
Button_1_Neg:
UsePen(SOLID,1,0,0,0)
UseBrush(SOLID,128,128,128)
DrawRectangle( 1, 1,32,32)
Return
Button_1_Help:
MessageBox(OK,1,INFORMATION,
"This demonstration toolbar shows left, ctrl-left and right
mouse actions. To see what a button does without starting
the action, click ctrl-left mouse.",
"How to use this toolbar",Res)
Goto Wait_for_Input
Button_7_Text:
UsePen(NULL,1,0,0,0)
UseBrush(SOLID,0,0,255) DrawRectangle(75,43,94,62)
UseBrush(SOLID,0,255,0) DrawRectangle(73,40,91,58)
UseBrush(SOLID,255,0,0) DrawRectangle(69,37,87,55)
UsePen(SOLID,1,0,0,0)
Return
Button_7_Neg:
UsePen(SOLID,1,0,0,0)
UseBrush(SOLID,128,128,128)
DrawRectangle(66,33, 97,65)
UsePen(NULL,1,0,0,0)
UseBrush(SOLID,0,0,128) DrawRectangle(75,43,94,62)
UseBrush(SOLID,0,128,0) DrawRectangle(73,40,91,58)
UseBrush(SOLID,128,0,0) DrawRectangle(69,37,87,55)
UsePen(SOLID,1,0,0,0)
Return
Button_8_Text: {in button #8}
UseFont("Arial",5,15,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(101,34,"Multi") DrawText(101,47,"Help")
UseFont("Arial",5,15,NOBOLD,NOITALIC,NOUNDERLINE,255,255,0)
DrawText(100,33,"Multi") DrawText(100,46,"Help")
Return